home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / pinball.bas < prev    next >
BASIC Source File  |  1991-10-18  |  6KB  |  96 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 1000 '
  3. 1010 '
  4. 1020 '  M-010  /  MUSIC09　（Ｃ）
  5. 1030 '   ROCK'N PINBALL
  6. 1040 '
  7. 1050 SCREEN@ 0:PLAY OFF:BGM 1
  8. 1060 FOR I=0 TO 13:PART I,I:NEXT:GOSUB *TITLE
  9. 1070 LOAD@"Q:\FJ\FM\MT32FM.FMB":LOAD@"Q:\FJ\PCM\RYM_ALL2.PMB"
  10. 1080 T$="T156Q7U0%CL8"
  11. 1090 P1$="GFGDGFGD"
  12. 1100 P2$="FEFCFEFC"
  13. 1110 BD$="AAAA":BD1$="AR8A8AR":BD2$="AAA8A8A":SD1$="R4F4R4F4":SD2$="R2.F4"
  14. 1120 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  15. 1130 PLAY "@6O5V7U50%R","@6O5V7U-50%L","@83V9O5","@83V9O5",,"@3O2V7","@1O1V15L4","@1O2V12L16","@1O2V12L16","@6O5V13","@6O5V13"
  16. 1140 PLAY P1$,P1$,,,,,BD$
  17. 1150 PLAY P1$,P1$,,,,,BD$,"R2R8FFFFFF"
  18. 1160 PLAY P1$,P1$,,,,P1$,BD$,SD1$
  19. 1170 PLAY P1$,P1$,,,,P1$,BD$,"R4F4R8FFFFFF"
  20. 1180 PLAY P2$,P2$,,,,,BD$
  21. 1190 PLAY P2$,P2$,,,,,BD$,"R2R8FFFFFF"
  22. 1200 PLAY P2$,P2$,,,,P2$,BD$,SD1$
  23. 1210 PLAY P2$,P2$,,,,P2$,BD$,"R4F4R8%R10F8F4%C","R2R8%L10R64F8F8.&F32.%C"
  24. 1220 PLAY P1$,P1$,"G1&","E1&",,P1$,BD$,SD1$,,"G1&","E1&"
  25. 1230 PLAY P1$,P1$,"G1","E1",,P1$,BD$,SD1$,,"G1","E1"
  26. 1240 PLAY P2$,P2$,"F1&","D1&",,P2$,BD$,SD1$,,"F1&","D1&"
  27. 1250 PLAY P2$,P2$,"F1","D1",,P2$,BD$,SD1$,,"F1","D1"
  28. 1260 PLAY P1$,P1$,"D1&","<B1&",,P1$,BD$,SD1$,,"D1&","<B1&"
  29. 1270 PLAY P1$,P1$,"D1","B1",,P1$,BD$,SD1$,,"D1","B1"
  30. 1280 PLAY P2$,P2$,"C4D4E4F4","A4B4>C4D4",,"C4D4E4F4",BD$,"R4F4R4F8F8",,"C4D4E4F4","A4B4>C4D4"
  31. 1290 PLAY P1$,P1$,"GRR2.","ERR2.",,"GRGRGRGR",BD$,"F4R2.",,"GRR2.","ERR2."
  32. 1300 PLAY P1$,P1$,,,,"GRGRGRGR",BD$,"R2R8%R10F8F8F8%C","R2R8%L10R64F8F8F.&F64%C"
  33. 1310 FOR I=0 TO 1
  34. 1320 PLAY "%CU0RGRGGRFG","%CU0REREERDE","@91U50V11GFG>D4C4<B","@91U-50V11GFG>D4C4<B",,"CCCCCCCC",BD$,SD1$
  35. 1330 PLAY "RARAARGA","RFRFFREF","A4BG&G2","A4BG&G2",,"DDDDDDDD",BD$,SD1$
  36. 1340 PLAY "RB-RB-B-RAB-","RGRGGRFG","GFG>D4C4<B","GFG>D4C4<B",,"EEEEEEEE",BD$,SD1$
  37. 1350 PLAY "RARAARGA","RFRFFREF","A4BA&A2","A4BA&A2",,"DDDDDDDD",BD$,SD1$
  38. 1360 PLAY "RGRGGRFG","REREERDE","F16F16EFGF16F16EDC","F16F16EFGF16F16EDC",,"CCCCCCCC",BD$,SD1$
  39. 1370 PLAY "RARAARGA","RFRFFREF","<B>EDC&C2","<B>EDC&C2",,"DDDDDDDD",BD$,SD1$
  40. 1380 PLAY "RB-RB-B-RAB-","RGRGGRFG","F16F16EFGF16F16EDC","F16F16EFGF16F16EDC",,"EEEEEEEE",BD$,SD1$
  41. 1390 IF I THEN 1410
  42. 1400 PLAY "RARAARGA","RFRFFREF","DCAG&G2","DCAG&G2",,"DDDDDDDD",BD$,SD1$
  43. 1410 NEXT
  44. 1420 PLAY "RARAARGA","RFRFFREF","DCAG&G2","DCAG&G2",,"DDDDDDDD",BD$,"R4F4R8%R10F8F8F8%C","R2R8%L10R64F8F8F16.&F64%C","V10R2.FG","V10R2.DE"
  45. 1430 FOR I=0 TO 1
  46. 1440 PLAY "%LA%RA%LA%RA%LA%RA%LA%RA","%LF%RF%LF%RF%LF%RF%LF%RF","V12RAGAGFEF","V12RAGAGFEF",,"<A>A<A>AA<A>GA",BD2$,SD1$,,"A2.EF","F2.CD"
  47. 1450 PLAY "%LG%RG%LG%RG%LG%RG%LG%RG","%LE%RE%LE%RE%LE%RE%LE%RE","RGFGFEDE","RGFGFEDE",,"<G>G<G>GG<G>FG",BD2$,SD1$,,"G2.DE","E2.<B>C"
  48. 1460 PLAY "%LF%RF%LF%RF%LF%RF%LF%RF","%LD%RD%LD%RD%LD%RD%LD%RD","RFEFEDC<B","RFEFEDC<B",,"<F>F<F>FF<F>EF",BD2$,SD1$,,"F2.CD","D2.<AB>"
  49. 1470 IF I THEN 1500
  50. 1480 PLAY "%LE%RE%LE%RE%LE%RE%LE%RE","%LC%RC%LC%RC%LC%RC%LC%RC","A4>CE&E2","A4>CE&E2",,"<E>E<E>EE<E>DE",BD2$,SD1$,,"E2.FG","C2.DE"
  51. 1490 NEXT
  52. 1500 IF K=1 THEN 1840
  53. 1510 IF Q THEN 1540
  54. 1520 PLAY "%LE%RE%LE%RE%LE%RE%LE%RE","%LC%RC%LC%RC%LC%RC%LC%RC","A4B>C&C2","A4B>C&C2",,"<E>E<E>EE<E>DE",BD$,"R4F4R8%R10F8F8F8%C","R2R8%L10R64F8F8F16.&F64%C","E1","C1"
  55. 1530 Q=1:GOTO 1310
  56. 1540 PLAY "%LE%RE%LE%RE%LE%RE%LE%RE","%LC%RC%LC%RC%LC%RC%LC%RC","A4B>C&C2","A4B>C&C2",,"<E>E<E>EE<E>DE",BD$,"R4F4R8%R10F8FFF8%C","R2R8%L10R64F8FFF.&F64%C","E1","C1"
  57. 1550 IF K=2 THEN GOTO 65000
  58. 1560 PLAY ,,"@69O5V9D1&","@69O4V9B1&","@69O4V9F1&","D1&",BD1$
  59. 1570 PLAY ,,"D1","B1","F1","D1",BD1$
  60. 1580 PLAY ,,"E1&",">C1&","G1&","E1&",BD1$
  61. 1590 PLAY ,,"E1","C1<","G1","E1",BD1$
  62. 1600 PLAY ,,"D1&","B1&","F1&","D1&",BD1$
  63. 1610 PLAY ,,"D1","B1","F1","D1",BD1$
  64. 1620 PLAY ,,"E1&",">C1&","G1&","E1&",BD1$
  65. 1630 PLAY ,,"E1","C1<","G1","E1",BD1$,"R2.%R10F4%C","R2.%L10R64F8.&F64%C"
  66. 1640 PLAY ,,"D1&","B1&","F1&","DRRDDRRR",BD1$,SD2$
  67. 1650 PLAY ,,"D1","B1","F1","DRRDDRRR",BD1$,SD2$
  68. 1660 PLAY ,,"E1&",">C1&","G1&","ERREERRR",BD1$,SD2$
  69. 1670 PLAY ,,"E1","C1<","G1","ERREERRR",BD1$,SD2$
  70. 1680 PLAY ,,"D1&","B1&","F1&","DRRDDRRR",BD1$,SD2$
  71. 1690 PLAY ,,"D1","B1","F1","DRRDDRRR",BD1$,SD2$
  72. 1700 PLAY ,,"E1&",">C1&","G1&","ERREERRR",BD1$,SD2$
  73. 1710 PLAY "%RU60","%LU-60","E1","C1<","G1","ERREERRR",BD1$,"R2R8%R10F8FFF8%C","R2R8%L10R64F8FFF.&F64%C"
  74. 1720 PLAY P2$,P2$,"D1&","B1&","F1&","DDRDDRCD",BD$,SD1$
  75. 1730 PLAY P2$,P2$,"D1","B1","F1","DDRDDRCD",BD$,SD1$
  76. 1740 PLAY P1$,P1$,"E1&",">C1&","G1&","EEREERDE",BD$,SD1$
  77. 1750 PLAY P1$,P1$,"E1","C1<","G1","EEREERDE",BD$,SD1$
  78. 1760 PLAY P2$,P2$,"D1&","B1&","F1&","DDRDDRCD",BD$,SD1$
  79. 1770 PLAY P2$,P2$,"D1","B1","F1","DDRDDRCD",BD$,SD1$
  80. 1780 PLAY P1$,P1$,"E1&",">C1&","G1&","EEREERDE",BD$,SD1$
  81. 1790 PLAY P1$,P1$,"E1","C1<","G1","EEREERDE",BD$,"R4F4R8%R10F8F8F8%C","R2R8%L10R64F8F8F.&F64%C"
  82. 1800 PLAY P2$,P2$,"C4D4E4F4","A4B4>C4D4","F4G4A4B4>","C4D4E4F4",BD$,"R4F4R4F8F8"
  83. 1810 PLAY P1$,P1$,"GRR2.","ERR2.","CRR2.","GRGRGRGR",BD$,"F4R2."
  84. 1820 PLAY P1$,P1$,"@83V9O5","@83V9O5",,"GRGRGRGR",BD$,"R2R8%R10FFFFFF%C","R2R8%L10R64FFFFFF32.%C","O5V13","O5V13"
  85. 1830 K=1:GOTO 1220
  86. 1840 PLAY "%LE%RE%LE%RE%LE%RE%LE%RE","%LC%RC%LC%RC%LC%RC%LC%RC","A4B>C&C2","A4B>C&C2",,"<E>E<E>EE<E>DE",BD$,"R4F4R8%R10F8%L10F8%CF8",,"E2.FG","C2.FG"
  87. 1850 K=2:GOTO 1430
  88. 1860 *TITLE
  89. 1870 CLS
  90. 1880 CIRCLE(320,100),250,1,.3!,,,F,PSET,1
  91. 1890 SYMBOL(90,80),"ＲＯＣＫ’Ｎ　ＰＩＮＢＡＬＬ",2,2,7,0,PSET,23
  92. 1900 SYMBOL(350,130),"Ｂｙ　菅井つばめ　（Ｃ）",1,1,7,0,PSET,22
  93. 1910 RETURN
  94. 65000 BGM 0:PLAY "R64":BGM 1
  95. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  96.